sub fastcall vg5000delayvarsyspw():
  asm
    ld de,($4838)
    vg5000delayvarsyspwloop:
    dec de
    ld a,d
    or e
    jp nz,vg5000delayvarsyspwloop
    end asm
  end sub

